home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / misc / sci / dproc126.lha / demo / v100lin.tst < prev    next >
Text File  |  1993-02-26  |  2KB  |  125 lines
  1. #dsize 40
  2.  
  3. #columns %f %f %f %f %f %f
  4. #queue 1 nu snu ua sua amp samp
  5.  
  6. #math v:=1010/10.04
  7. ; nehmen 1% Fehler an
  8. #math sv:=v*rt2/100
  9. #build gt 'Verst"arkung: $%f4\\pm%f2$' v sv
  10.  
  11. #globtitle gt
  12.  
  13. #title nu "$\nu$"
  14. #unit nu "Hz"
  15. #title snu "$s_\nu$"
  16. #unit snu "Hz"
  17. #title ua "U$_A$"
  18. #unit ua V
  19. #title sua "$s_{U_A}$"
  20. #unit sua V
  21. #title amp "V'"
  22. #rtitle amp "V'($\nu$)"
  23. #gtitle amp "Messung"
  24. #title samp "$s_{V'}$"
  25.  
  26. #func ua2amp f(u):=u/0.086
  27. #func sua2samp g(amp,u,su):=amp*sqrt((su/u)^2+sqr(1/86))
  28.  
  29. #make amp ua2amp ua
  30. #make samp sua2samp amp ua sua
  31.  
  32. ! OK, Let's data
  33.  
  34. #using nu snu ua sua
  35. #prec 0 2
  36. #prec amp 3
  37. #prec nu 5
  38.  
  39. 108.3/0.05/8.2/0.2
  40. 208.85
  41. 309//8.1
  42. 408.2
  43. 507.31
  44. 605.82//8
  45. 704.02
  46. 802.07
  47. 899.8
  48. 998.12
  49. 2090.1//7.7
  50. 3091.6//7.2
  51. 4084.9//6.6
  52.  
  53. #mark gerade
  54.  
  55. 5075//5.9
  56. 6060.3//5.4
  57. 7042/1/4.8
  58. 8023//4.3
  59. 9004//3.9
  60. 9985//3.6
  61. 13144//3/0.15
  62. 15885//2.5
  63. 19612//2
  64. 25851//1.5
  65. 31653//1.2
  66.  
  67. ! go on -- regress
  68.  
  69. #applog "lintst.log"
  70.  
  71. #build control "Start bei %d" gerade
  72. #logpost control
  73.  
  74. #logreg 3 nu amp 0 gerade
  75.  
  76. ! compute vg
  77.  
  78. #math vg:=(v/rt2*10^DPB)^(1/DPA)
  79. #math lvg:=vg*ln(vg)
  80. #math svg:=sqrt(lvg*((DPSA/a)^2+(DPSB/b)^2)+(vg*sv/v)^2)
  81. #build vgstr "Grenzfrequenz: %f4 +/- %f2" vg svg
  82. #post vgstr
  83. #math svgv:=vg*v*sqrt((svg/vg)^2+(sv/v)^2)
  84. #build vconst "vg*V': %f4 +/- %f2" "vg*v" svgv
  85. #post vconst
  86. #logpost vconst
  87. #logpost vgstr
  88. #logpost gt
  89.  
  90. ! tag it
  91.  
  92. #tagfile "valllin.tag" v100
  93. #build results "%f/%f/%f/%f/%f/%f" v sv vg svg v*vg svgv
  94. #tagpost results
  95.  
  96. #tagfile "reglin.tag" v100
  97. #build regs "%f/%f/%f/%f" v sv DPA DPSA
  98. #tagpost regs
  99.  
  100. ! and genarate some output
  101.  
  102. #term gnuplot
  103. #set logscale xy
  104. #storeset yrange 10:100
  105.  
  106. #if eepic
  107. #set output v100lin.eep
  108. #endif
  109.  
  110. #ocol nu amp samp
  111. #write "v100lin.dta" "v100lin.gnu"
  112.  
  113. #term latex
  114. #set Corr
  115. #set floathead
  116. #set caption v100lin
  117. #ocol nu snu ua sua amp samp
  118. #write "v100lin.tab"
  119.  
  120. #post gt
  121.  
  122. ! *** DONE ***
  123.  
  124. #flushset
  125.